Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/crwdemo/tableloc.frm

Text File | 1995-12-05 | 5KB | 181 lines

VERSION 2.00
Begin Form TABLELOCATION
   BackColor       =   &H00C0C0C0&
   Caption         =   "TABLE LOCATION"
   ClientHeight    =   3075
   ClientLeft      =   1110
   ClientTop       =   1800
   ClientWidth     =   5415
   ForeColor       =   &H00C0C0C0&
   Height          =   3765
   Left            =   1050
   LinkTopic       =   "Form2"
   ScaleHeight     =   3075
   ScaleWidth      =   5415
   Top             =   1170
   Width           =   5535
   Begin CommandButton Command6
      Caption         =   "Done"
      Height          =   375
      Left            =   2760
      TabIndex        =   8
      Top             =   2100
      Width           =   1635
   End
   Begin CommandButton Command5
      Caption         =   ">>"
      Height          =   375
      Left            =   3690
      TabIndex        =   7
      Top             =   1560
      Width           =   1215
   End
   Begin CommandButton Command4
      Caption         =   "<<"
      Height          =   375
      Left            =   2220
      TabIndex        =   6
      Top             =   1560
      Width           =   1155
   End
   Begin SSPanel Statusbar
      Alignment       =   1  'Left Justify - MIDDLE
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   435
      Left            =   0
      TabIndex        =   5
      Top             =   2670
      Width           =   5985
   End
   Begin TextBox Text2
      Height          =   375
      Left            =   2220
      TabIndex        =   4
      Top             =   990
      Width           =   2685
   End
   Begin TextBox Text1
      Height          =   375
      Left            =   2220
      TabIndex        =   3
      Top             =   360
      Width           =   2685
   End
   Begin CommandButton Command3
      Caption         =   "Set Location"
      Height          =   375
      Left            =   390
      TabIndex        =   2
      Top             =   2100
      Width           =   1695
   End
   Begin CommandButton Command2
      Caption         =   "Get Location"
      Height          =   375
      Left            =   330
      TabIndex        =   1
      Top             =   990
      Width           =   1695
   End
   Begin CommandButton Command1
      Caption         =   "Number of Tables"
      Height          =   375
      Left            =   330
      TabIndex        =   0
      Top             =   390
      Width           =   1695
   End
   Begin Label Label1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Increment Table"
      Height          =   345
      Left            =   390
      TabIndex        =   9
      Top             =   1620
      Width           =   1755
   End
   Begin Menu MenuFile
      Caption         =   "&File"
      Begin Menu Menuexit
         Caption         =   "&Exit"
      End
   End
End
Sub Command1_Click ()
  Dim NumTables As Integer
  NumTables = PEGetNtables(jobnum)
  If NumTables <> -1 Then
    Text1.Text = Str(NumTables)
    Statusbar.Caption = "Retrieved Number of Tables"
  Else
    MsgBox ("Retrieving the number of tables has failed")
  End If

End Sub

Sub Command2_Click ()
Dim locInfo As PETableLocation
    locInfo.Location = Chr$(0)
    locInfo.StructSize = Len(locInfo)

    If PEGetNthTableLocation(jobnum, tableN, locInfo) = 1 Then
        Text2.Text = locInfo.Location
        Statusbar.Caption = "Location Info Retrieved"

    Else
        MsgBox "Cannot get location info."
        Exit Sub
    End If

End Sub

Sub Command3_Click ()
    Dim locInfo As PETableLocation
    locInfo.StructSize = Len(locInfo)

    locInfo.Location = Text2.Text + Chr$(0)

    If PESetNthTableLocation(jobnum, tableN, locInfo) = 1 Then
        Statusbar.Caption = "Location Info Set"
    Else
        MsgBox "Cannot set location info."
        Exit Sub
    End If


End Sub

Sub Command4_Click ()
   Dim nTables As Integer

   If (tableN > 0) Then
      tableN = tableN - 1
   End If

End Sub

Sub Command5_Click ()
   Dim nTables As Integer

   nTables = PEGetNtables(jobnum)

   If (tableN < nTables - 1) Then
      tableN = tableN + 1
   End If

End Sub

Sub Command6_Click ()
 Unload Me
End Sub

Sub Menuexit_Click ()
 Unload Me
End Sub